﻿<Serializable()> _
Public Class TimeFrame
    Private m_FromTime As TimeSpan
    Private m_toTime As TimeSpan

    Public Sub New(ByVal p_FromTime As TimeSpan, ByVal p_ToTime As TimeSpan)
        m_FromTime = p_FromTime
        m_toTime = p_ToTime
    End Sub

    Public Property FromTime() As TimeSpan
        Get
            Return m_FromTime
        End Get
        Set(ByVal value As TimeSpan)
            m_FromTime = value
        End Set
    End Property

    Public Property ToTime() As TimeSpan
        Get
            Return m_toTime
        End Get
        Set(ByVal value As TimeSpan)
            m_toTime = value
        End Set
    End Property
End Class
